with Ada.Finalization;		use Ada.Finalization;
with Gtk.Window;			use gtk.Window;
with Gtk.Main;				use GTK.Main;
with Gtk.Button;			use Gtk.Button;
with Gtk.Menu_Bar;			use Gtk.Menu_Bar;
with gtk.Menu_Item;			use Gtk.Menu_Item;
with Gtk.Menu;			use Gtk.Menu;
with Gtk.Widget;			use Gtk.Widget;
with Gtk.Box;				use Gtk.Box;
with Gtk.Handlers;

Package P_Fenetre IS
   Fichier_Manquant : Exception;
   Package P_Events Is New gtk.Handlers.Callback(Gtk_Window_Record);
   Package P_Events_Widget Is New gtk.Handlers.Callback(Gtk_Widget_Record);

   Procedure Fenetre_Construct(Vue : Gtk_Box;Plateau_Jeu : boolean := false) ;
   Procedure Set_Container(Container : Gtk_Widget_Record'Class);
   Function Get_Win return Gtk_Window;
   Function Get_Menu_Bar return Gtk_Menu_Bar;
   Function Get_Container return Gtk_Vbox;
   Hauteur : Constant Integer := 400;
   Largeur : Constant Integer := 700;

private

   Type T_Fenetre Is New CONTROLLED  With Record
      WIN : Gtk_Window;
      Menu_Bar : Gtk_Menu_Bar;
      Container : Gtk_Vbox;
   End Record;

   --PROCEDURE Set_Vue();
   Fenetre : T_Fenetre;

End P_Fenetre;


